home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1996 #5 / Amiga Plus CD - 1996 - No. 5.iso / pd / grafik / picview20 / rexx / makeascii.rexx next >
OS/2 REXX Batch file  |  1996-03-20  |  2KB  |  89 lines
  1. /*******************************************************/
  2. /* MakeAscii.rexx   $VER: 1.0 (18.03.96)  for PicView  */
  3. /* (C) 1996 Maik Solf          solf@madhouse.boerde.de */
  4. /* Im collecting handdrawn pictures, contact me 2 swap */
  5. /*******************************************************/
  6.  
  7. OPTIONS RESULTS
  8. ADDRESS 'PICVIEW.1'
  9.  
  10. /* open rexxreqtools.library */
  11. IF ~SHOW('L',"rexxreqtools.library") THEN
  12.    IF ~ADDLIB("rexxreqtools.library", 0, -30, 0) THEN
  13.       EXIT 10
  14.  
  15. /* Vars */
  16. Enter='0a'x
  17. DEnter=Enter || Enter
  18.  
  19. /* User-Options */
  20. YourName='Maik Solf'
  21. DefDir='RAM:'
  22. Titel='Pictures from' YourName ||  Enter || '-----------------------' || DEnter
  23.  
  24. /* number of pictures */
  25. getentries
  26. Number=RESULT
  27. IF Number=0 THEN DO
  28.    rtezrequest('No pictures in current catalog.' , , 'MakeAscii.rexx' )
  29.    EXIT 5
  30. END
  31.  
  32. /* get filename */
  33. Filename=rtfilerequest(DefDir, , "Select File" , , , )
  34.  
  35. /* open file */
  36. IF OPEN(Handle,Filename,'W')=0 THEN DO
  37.    rtezrequest('Couldnt open file.' , , 'MakeAscii.rexx' )
  38.    EXIT 20
  39. END
  40.  
  41. /* write titel */
  42. WRITELN(Handle,Titel)
  43.  
  44. DO i=0 TO Number-1
  45. /* get data of picture */
  46.    /* no parse because Space */
  47.    getpicdata i data name
  48.    NA=RESULT
  49.    getpicdata i data path
  50.    PA=RESULT
  51.    getpicdata i data file
  52.    FI=RESULT
  53.    getpicdata i data comment
  54.    CM=RESULT
  55.    getpicdata i data modetext
  56.    MT=RESULT
  57.    /* parse possible */
  58.    getpicdata i data weekday date time width height depth size format modeid
  59.    PARSE VAR RESULT WD DA TI WI HE DP SI FM MI
  60. /* convert to output */
  61.    CALL UP_Format
  62. /* write to ascii */
  63.     WRITELN(Handle,Entry)
  64. END
  65.  
  66. IF Number=1
  67.    THEN Ende=Number 'picture'
  68.    ELSE Ende=Number 'pictures'
  69.  
  70. WRITELN(Handle,Ende)
  71.  
  72. CLOSE(handle)
  73.  
  74. Ende=Ende 'saved as Ascii.'
  75.  
  76. rtezrequest(Ende , , 'MakeAscii.rexx' )
  77.  
  78. EXIT 0
  79.  
  80. UP_Format:
  81. /* chance your output */
  82.     Entry=''
  83.     Entry=Entry || 'Name   :' NA || Enter
  84.     Entry=Entry || 'Width  :' WI || Enter
  85.     Entry=Entry || 'Height :' HE || Enter
  86.     Entry=Entry || 'Depth  :' DP || Enter
  87.     Entry=Entry || 'Mode   :' MT || Enter
  88. RETURN
  89.